(auto-coding-alist-lookup): Include ms-dos

in the list of case-insensitive filesystems.

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 9087aa1c9330bc822ac7898bd4f9a73437507056..b9647b75b1c895a169c0a59a140f5723e2270aca 100644 (file)
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -906,7 +906,7 @@ This is used for loading and byte-compiling Emacs Lisp files.")
 (defun auto-coding-alist-lookup (filename)
   "Return the coding system specified by `auto-coding-alist' for FILENAME."
   (let ((alist auto-coding-alist)
-       (case-fold-search (memq system-type '(vax-vms windows-nt)))
+       (case-fold-search (memq system-type '(vax-vms windows-nt ms-dos)))
        coding-system)
     (while (and alist (not coding-system))
       (if (string-match (car (car alist)) filename)